home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
win_m_p
/
mtrash.zip
/
WWTRASH.TXT
< prev
next >
Wrap
Text File
|
1992-08-27
|
955b
|
44 lines
Declare Function FindWindow Lib "User"(lpClassName As Long, lpWindowName \
As String) As Integer
Sub MAIN
On Error Goto TrashError
Dim x, y, FileLen, ChanNum
NULL = 0
WinName$ = String$(65, 0)
WinName$ = "Steve's McTrash Dumpster"
x = FindWindow(NULL, WinName$)
If x = 0 Then
MsgBox "Steve's McTrash Dumpster is not running; please start it up before using this macro!", \
"Steve's Mctrash Dumpster Macro", 48
Goto Done
End If
DocName$ = String$(255, 0)
Execute$ = String$(128, 0)
DocName$ = FileName$()
FileLen = Len(FileName$())
DocName$ = Left$(DocName$, FileLen)
FileClose 2
ChanNum = DDEInitiate("McTrash", "Form1")
Execute$ = "ZAP=" + DocName$
DDEExecute ChanNum, Execute$
DDETerminate ChanNum
Goto Done
TrashError:
If Err = 503 Then
Goto Done
Else
MsgBox "An unknown error has occurred, terminating macro execution", \
"Steve's McTrash Dumpster Macro", 64
End If
Done:
End Sub